home *** CD-ROM | disk | FTP | other *** search
/ Private Obsession 3: Sophia / Private Obsession 3: Sophia.iso / files / sshots.dxr / 00122.ls < prev    next >
Encoding:
Text File  |  1995-04-08  |  796 b   |  39 lines
  1. on mouseDown
  2.   global cual2
  3.   if not soundBusy(1) then
  4.     if cual2 = 7 then
  5.       puppetSound("horny")
  6.     else
  7.       if cual2 = 16 then
  8.         puppetSound("ooyea1")
  9.       else
  10.         if cual2 = 24 then
  11.           puppetSound("breath2")
  12.         else
  13.           if cual2 = 32 then
  14.             puppetSound("canU")
  15.           else
  16.             if cual2 = 42 then
  17.               puppetSound("burning")
  18.             else
  19.               if cual2 = 52 then
  20.                 puppetSound("breath1")
  21.                 set cual2 to 0
  22.               end if
  23.             end if
  24.           end if
  25.         end if
  26.       end if
  27.     end if
  28.     set cual2 to cual2 + 1
  29.     go(the frame + 1)
  30.   else
  31.     if cual2 > 52 then
  32.       set cual2 to 0
  33.     else
  34.       set cual2 to cual2 + 1
  35.     end if
  36.     go(the frame + 1)
  37.   end if
  38. end
  39.